| AIML PTRN ".$aiml_tmpl." | AIMP TMPL ".$invr_domn."";
$sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`topic`,`filename`,`datm`) VALUES (NULL,'1','semanta','$aiml_ptrn','','$aiml_tmpl','','aiml-srai','$datm')";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
// $logentry_result = mysql_query($sql1, $link);
}
}
}
///////////////
$tabl_rslt=xtrt_aiml($invr_bzv1,$invr_taal);
echo "";
asort($tabl_rslt);
// print_r($tabl_rslt);
foreach($tabl_rslt as $tabl_key => $tabl_val)
{
$rule_itms=explode("@",$tabl_key);
$tref_scre=$rule_itms[0];
$tref_ptrn=$rule_itms[1];
$tref_tmpl=$rule_itms[2];
// echo "| ".$tref_scre." | ".$tref_ptrn." | ".$tref_tmpl." | ";
// echo "| ".$tref_ptrn." | ".$tref_tmpl." | ";
}
echo " ";
// echo "
ZOEK DATM ".$zoek_datm;
echo "";
// $sqltref="SELECT * FROM conversation_log where `timestamp` like '$zoek_datm' and `response` != 'geen valide antwoord' order by `timestamp` asc";
$sqltref="SELECT * FROM conversation_log where `response` != 'Geen direct antwoord' order by `timestamp` asc";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$trefresult = mysql_query($sqltref, $link);
$tref_num = mysql_num_rows($trefresult);
$lr=$tref_num-9;
// echo "
Aantallen ".$sqltref." ".$tref_num." AFDRUKKEN ".$lr;
$sw=0;
while ($row = mysql_fetch_assoc($trefresult))
{
$bot_nr=$row['bot_id'];
$aiml=$row['aiml'];
$pattern=$row['input'];
$template=$row['response'];
$datm=$row['timestamp'];
// echo "
DATUM ".$datm." PATTERN ".$pattern." TEMPLATE ".$template;
if ($sw==0 )
{
$rcnt_ptrn=$pattern;
$rcnt_tmpl=$template;
// echo "
".$sw." RCNT PTRN ".$pattern." RCNT TMPL ".$rcnt_tmpl;
}
if ($sw==1 )
{
// $rcnt_ptrn=$pattern;
$prev_tmpl=$template;
// echo "
".$sw." RCNT PTRN ".$rcnt_ptrn."PREV TMPL ".$template;
}
$sw=$sw+1;
$last_say=$pattern;
$slast_say=str_replace(" ","+",$last_say);
$last_resp=$template;
$nr=$nr+1;
if($srelt != $last_resp.$last_say and $nr > $lr and $invr_func != 0)
{
$srelt=$last_resp.$last_say;
//echo "| ".$datm." | U: ".$last_say."
VGPT:".$last_resp." | ";
}
}
echo " ";
if ($invr_lgrm[0] == "x")
{
// echo "
SPECIAL ".$invr_lgrm;
$rule_lgrm=str_replace("x","",$invr_lgrm[0]);
echo "
SPECIAL ".$rule_lgrm;
}
$invr_lnks=str_replace('%g','>',$invr_lnks);
$invr_lnks=str_replace('%k','<',$invr_lnks);
$invr_lnks=str_replace('%q','"',$invr_lnks);
?>
";
$uinvr_bzv1=urlencode($invr_bzv1);
$uinvr_bzv1=str_replace("%EF%BF%BD%EF%BF%BD","",$uinvr_bzv1);
$invr_bzv1=urldecode($uinvr_bzv1);
// $subs_rslt=smts_subs($invr_bzv1);
// $subs_rslt=smts_subs($invr_lnks);
////////////////////////////////
////////////////////////////////
$smts_rslt=tlkd_smts($invr_lnks);
krsort($smts_rslt);
echo "";
$ca=0;
foreach($smts_rslt as $smts_key => $smts_val)
{
// echo "
INVR BZV1 ".$invr_bzv1." SMTS KEY ".$smts_key." SMTS VAL ".$smts_val;
$smts_itms=explode("!!",$smts_key);
$smts_text=$smts_itms[0];
$smts_tlkd=$smts_itms[1];
$smts_posn=$smts_itms[2];
$text_itms=explode(" ",$smts_text);
if(count($text_itms) > 1)
{
if ($srelt != $smts_text)
{
// echo "
SMTS TEXT ".$smts_text." SMTS TLKD ".$smts_tlkd." SMTS POSN ".$smts_posn;
$csmts_text = $smts_text;
$srelt=$smts_text;
}
// $aiml_tmpl=$smts_text;
if ($smts_posn== 0)
{
$aiml_ptrn=$smts_text." *";
}
if ($smts_posn== 50)
{
$aiml_ptrn="* ".$smts_text."*";
}
if ($smts_posn== 99)
{
$aiml_ptrn="* ".$smts_text;
}
/////
/////
$aiml = "".$aim."".$invr_bzv1."";
// $aiml_text="<category><topic>""</topic><pattern>".$invr_lnks."</pattern><template>".$invr_bzv1."</template></category>";
$ssmts_sgmt=str_replace(" ","+",$smts_sgmt);
$sgmt_itms=explode(" ",$smts_sgmt);
$ssay=str_replace(" ","+",$invr_lnks);
// echo "
SMTS POSN ".$smts_posn." AANTAL ".count($sgmt_itms);
// echo "
SAVE RCHS ".$save_rchs." INVR_RCHS ".$invr_rchs;
$meta_one=metaphone($aiml_ptrn,8);
$meta_two=metaphone($save_rchs,8);
$meta_domn=$invr_domn."!!".$meta_two."!!".$meta_one;
// echo "
META DOMN ".$meta_domn;
if ($smts_posn == 0 or $smts_posn== 50 or $smts_posn == 99)
{
// echo "
SAVE RCHS ".$save_rchs." INVR_RCHS ".$invr_rchs;
$aiml_text="<category><pattern>".$aiml_ptrn."</pattern><that>".$invr_lgrm."</that><template>".$invr_rchs."</template></category>";
// echo "
VERWERKING LNKS VRAAG IS BEKEND AIML TEXT ".$aiml_end." INVR RCHS ".$invr_rchs;
$sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`domn`,`filename`,`taal`,`datm`) VALUES (NULL,'1','$invr_corp','$aiml_ptrn','$invr_lgrm','$save_rchs','$invr_domn','tlkd-rule-aiml','$invr_taal','$datm')";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$logentry_result = mysql_query($sql1, $link);
$sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`topic`,`filename`,`datm`) VALUES (NULL,'1','','$smts_text','','$invr_rchs','$invr_lgrm','tlkd-rule-aiml','$datm')";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
$logentry_result = mysql_query($sql1, $link);
$sql1 = "INSERT INTO `aiml` (`id`,`bot_id`,`aiml`,`pattern`,`thatpattern`,`template`,`topic`,`filename`,`datm`) VALUES (NULL,'1','$invr_corp','$aiml_tmpl','$invr_lgrm','$aiml_ptrn','','rule-tlkd-aiml','$datm')";
mysql_query("SET CHARACTER SET utf8");
mysql_query("SET NAMES utf8");
// $logentry_result = mysql_query($sql1, $link);
// $last_rcrd=return $logentry_result->insert_id;
$psmts_sgmt="".$smts_sgmt."";
$lsmts_sgmt="".$psmts_sgmt."";
$csmts_text=str_replace($smts_sgmt,$lsmts_sgmt,$csmts_text);
// echo "
".$lsmts_sgmt;
}
}
}
}
$sinvr_lnks=str_replace(" ","+",$invr_lnks);
// echo "
INVR LNKS ".$sinvr_lnks;
// echo "";
?>
|